home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / CLOSE.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  738b  |  23 lines
  1. ;******************************************************************
  2. ;*                            CLOSE.ASM                           *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. Model TPascal
  8. Locals
  9. .Data
  10.      EXTRN DosError :word
  11. .Code
  12.        Public CloseHandle
  13. CLoseHandle Proc Far Handle:Word
  14.               MOV BX,Handle
  15.               MOV AH,3EH
  16.               INT 21h
  17.               JC @@Error
  18.               XOR AX,AX
  19. @@Error:      MOV DOSError,AX
  20.             RET
  21.           ENdP
  22. END
  23.